home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 2002 January / PC Answers January 2002.7z / PC Answers January 2002.bin / graphics / freepixl / _SETUP.1 / Example1.pxl < prev    next >
Text File  |  2000-12-23  |  671b  |  19 lines
  1. {     Sample PiXCL code: example #1 }
  2.  
  3. Initialize:
  4.             WinGetActive(Win$)    {Get the default name of the current window.}
  5.             UseCoordinates(PIXEL)    {Set the co-ordinate mode. This is optional.}
  6.  
  7.             WinLocate(Win$,200,100,500,320,Res) {Put the window where you want it.}
  8.  
  9.             SetMenu("Exit!",Leave,    {create a very simple menu.}
  10.                         ENDPOPUP)
  11.  
  12.             DrawText(20,20,"Standard window style")    {write this text on to the window.}
  13.  
  14. Wait_for_Input:    {This is the "idle" loop where the program waits.}
  15.             WaitInput()    {wait until an event occurs.}
  16.  
  17. Leave:        {terminate the program.}
  18.             End    {Quit keyword also accepted}
  19.